perm filename CRTEST.LSP[XAP,BGB] blob sn#052887 filedate 1973-07-07 generic text, type T, neo UTF8

(DEFPROP TEST
 (LAMBDA(L)
  (PROG	NIL
	(INC (EVAL (APPEND (QUOTE (INPUT DSK:)) L)))
   LOOP	(EVAL
	 (CDR
	  (SASSOC (TYO (TYI))
		  (QUOTE
		   ((15 COND ((EQ (TYO (TYI)) 12) NIL) (T (ERROR (QUOTE (BARE CR)))))
		    (12 PRIN1 (QUOTE (BARE LF)))))
		  (FUNCTION (LAMBDA NIL (QUOTE (NIL)))))))
	(GO LOOP)))
FEXPR)